﻿<!--#include file="h.asp"--><%
'
'	七色虎建站系统
'	前台展示文件Index.asp
'	用于展示网站
'	2011.9.3
'	2011.10.26

Dim aid,id,vars
aid=LCase(getDD("aid","index"))
id=getN("id",1)

Select Case aid
	Case "index":vars = "Index"
	Case "art":vars = "Article"'兼容旧系统,以下都不取消
	Case "list":vars = "List"
	Case "link":vars = "Link"
	Case "guest":vars = "Guest"
	Case "dis":vars = "Discuss"
	Case "class":vars = "Class"
	Case "url":vars = "Url"
	Case "diss":vars = "Comment"
	Case "search":vars = "Search"
	Case "map":vars = "Map"
	Case "report":vars = "Report"
	Case "new":vars = "New"
	Case "bookmark":vars = "Bookmark"
	Case "style":vars = "Style"
	Case Else:vars = "Index"
End Select

draw vars

%>